home *** CD-ROM | disk | FTP | other *** search
/ Deutsche Edition 1 / Deutsche Edition 1.iso / amok / amok_lha / amok13.lha / CompControl / CCInitWin.DEF < prev    next >
Text File  |  1993-08-15  |  3KB  |  101 lines
  1. (*--------------------------------------------------------------------------
  2.  
  3. :Program.    CCInitWin.DEF 
  4. :Author.     Ralf Kaiser
  5. :Address.    5600 Wuppertal 2, Winckelmannstr. 1 
  6. :Phone,      02 02/59 28 10
  7. :Shortcut.   [rk]
  8. :Version.    2.1
  9. :Date.       21.01.89
  10. :Copyright.  Public Domain
  11. :Language.   Modula 2
  12. :Translator. M2 AMIGA Version 3.2d
  13. :Imports.    InitStruct, Nicolas Benezan [bne]
  14. :Contents.   Initialisiert das Window für CompControl
  15.  
  16. ----------------------------------------------------------------------------*)
  17.  
  18. DEFINITION MODULE CCInitWin;
  19.  
  20. FROM SYSTEM IMPORT
  21.  LONGSET, ADR, ADDRESS;
  22.  
  23. FROM Arts IMPORT
  24.  Assert, TermProcedure;
  25.  
  26. FROM Intuition IMPORT
  27.  GadgetFlags, GadgetFlagSet, ActivationFlags, ActivationFlagSet, 
  28.  boolGadget, strGadget, Gadget, GadgetPtr, StringInfo, IntuiText, Border, 
  29.  IDCMPFlags, IDCMPFlagSet, IntuiMessage, IntuiMessagePtr, WindowFlags,
  30.  WindowFlagSet, ScreenFlags, ScreenFlagSet, NewWindow,
  31.  WindowPtr, OpenWindow, CloseWindow, RefreshGadgets;
  32.  
  33. FROM Graphics IMPORT
  34.  RastPortPtr, Move, Text, jam1, jam2;
  35.  
  36. FROM MemSystem IMPORT
  37.  AllocMem, Deallocate;
  38.  
  39. FROM IntuiStruct IMPORT
  40.  StructWindow, StructText, StructGadget, StructString, StructBorder,
  41.  Rectangle, BorderEnd, AllocProc, DeallocProc;
  42.  
  43.  
  44. CONST     
  45. (*--------------------------------------------------------------------------*)
  46.  
  47.           PEN0          =    0;    (* Namen der einzelnen Farben *)
  48.           PEN1          =    1;
  49.           PEN2          =    2;
  50.           PEN3          =    3;
  51.  
  52. (*--------------------------------------------------------------------------*)
  53.  
  54.           EDITG         =    0;    (* Konstanten für die GadgetID *)
  55.           COMPG         =    1;
  56.           LINKG         =    2;
  57.           START         =    3;
  58.           NAMEG         =    4;
  59.           ALLGA         =    5;
  60.           EXT1G         =    6;
  61.           EXT2G         =    7;
  62.           DOITG         =    8;
  63.           ABOUT         =    9;
  64.           FREQG         =    10;
  65.           QUITG         =    11;
  66.           
  67.           
  68. (*--------------------------------------------------------------------------*)  
  69.           
  70.           EDITT         =    "    Edit    ";  (*  Gadgettexte als Konstanten *)
  71.           COMPT         =    "Kompilieren ";
  72.           LINKT         =    "   Binden   ";
  73.           STARTT        =    "  Starten   ";
  74.           ALLTX         =    "alles zusammen ...";
  75.           EXT1T         =    "       Endung 1         ";
  76.           EXT2T         =    "       Endung 2         ";
  77.           DOITT         =    "  Kommando  ";
  78.           ABOUTT        =    " Wer wars ? ";
  79.           FREQT         =    " neuer Name ";
  80.           QUITT         =    "  Ende ...  ";
  81.           
  82. (*--------------------------------------------------------------------------*)
  83.  
  84.           MAINTITEL     =    "*SwA* CompilerController Version 2.01";
  85.           
  86. VAR       NewMain       :    NewWindow;
  87.           MainWin       :    WindowPtr;
  88.           UNDOBUFFER    :    ARRAY [0..80] OF CHAR;
  89.           NameSIBuff    :    ARRAY [0..80] OF CHAR;
  90.           MainGadgets   :    ARRAY [0..11] OF Gadget;
  91.           MainBorder    :    ARRAY [0..3 ] OF Border;
  92.           MainTexte     :    ARRAY [0..10] OF IntuiText;
  93.           MainString    :    StringInfo;          
  94.           
  95.  
  96. PROCEDURE Cleanup;
  97.  
  98. PROCEDURE MakeMainWindow (VAR NewWin : NewWindow);
  99.  
  100. END CCInitWin.
  101.